1 REM LASER - DEMO- UND STEUER-PROGRAMM
2 REM VON NIKOLAUS HEUSLER         8.91
3 REM ZWENGAUERWEG 18, 8000 MUENCHEN 71
4 :
10 IFPEEK(49155)<>3THENLOAD"LASER.CODE",8,8
20 SYS49152:SP=8
30 PRINT"[147]LASER-STEUER- UND DEMOPROGRAMM    M&T/NH
40 [153]"TASTEN:  + WAIT /  - WAIT ..... VERZOEGERUNG
42 PRINT"         S [146] ........... PROGRAMM-PAUSE
43 [153]"         W WAIT ........... WEITER
44 PRINT"         X [146] ........... ENDE
90 [137]900
230 [151]6,BR:[151]2,1:[151]3,1:[151]4,M1:[151]5,M2:[142]
800 [139]PP[178]1[167]810
802 PP[178]1:[153]""[163]22)"(PAUSE)":[142]
810 PP[178]0:[153]""[163]22)"       ":[142]
900 [140]:[129]DK[178]1[164]15
902 [135]M1,M2,BR:[141]230
904 [129]DI[178]1[164]SP[172]8
906 [153]"   VERZOEGERUNG:"SP"CMD  "
907 [153]"        SCHRITT:"DK"CMD  "
908 [161]A$:[151]198,.
910 [139]A$[178]"+"[167]SP[178]SP[170]1:[139]SP[177]40[167]SP[178]40
912 [139]A$[178]"-"[167]SP[178]SP[171]1:[139]SP[179]0[167]SP[178]0
913 [139]A$[178]"+"[176]A$[178]"-"[167]926
914 [139]A$[178]"X"[167][158]49152:[158]65418:[151]56325,64:[158]65409:[128]
916 [139]A$[178]"W"[167]926
918 [139]A$[178]"S"[167][141]800
920 [139]PP[167]DI[178]1
924 [130]DI
926 [130]DK:[137]900
950 [131]70,59,76,246,31,235,209,216,5,129,61,33
952 [131]48,252,150,94,152,53,243,116,248,30,94,195
954 [131]221,49,38,212,80,88,10,200,86,145,44,70,17,116,220
956 [131]15,117,232,160,100,60